home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / examples / progDH4.1 < prev    next >
Encoding:
Text File  |  1993-12-16  |  346 b   |  19 lines
  1. # Dan Heller's Example 4-1, p88
  2.  
  3. # call with a bitmap eg
  4. #    moat -file prgDH4.1 xlogo32
  5.  
  6. if {$argc < 1} {
  7.     puts stderr "Usage: command bitmap-file"
  8.     exit
  9. }
  10.  
  11. xtAppInitialize
  12.  
  13. xmMainWindow .main managed
  14. xmLabel .main.lab managed -labelType pixmap -labelPixmap [lindex $argv 0]
  15. .main setValues -workWindow .main.lab
  16.  
  17. . realizeWidget
  18. . mainLoop
  19.